Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/ledit.:ej
There are no other files named ledit.:ej in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
9	(S4

BrO

]Z	Qfvr[	N-1ob}I

~h-,<FMQ& LEDIT Execute JCL& LEDIT Find File& LEDIT Save Region& Setup LEDIT Library^R LEDIT COMPLR Inferior^R LEDIT Find Function^R LEDIT ReCompile^R LEDIT Save DEFUN^R LEDIT Save Region^R LEDIT Zap DEFUN to LISP^R LEDIT Zap to LISP~DIRECTORY~~DOC~ & LEDIT Execute JCL~DOC~ & LEDIT Find File~DOC~ & LEDIT Save Region~DOC~ & Setup LEDIT Library"~DOC~ ^R LEDIT COMPLR Inferior ~DOC~ ^R LEDIT Find Function~DOC~ ^R LEDIT ReCompile~DOC~ ^R LEDIT Save DEFUN~DOC~ ^R LEDIT Save Region$~DOC~ ^R LEDIT Zap DEFUN to LISP~DOC~ ^R LEDIT Zap to LISP~DOC~ ~Filename~~Filename~

~INVERT~z-1FO..QLEDIT Save All Files QueryM.CLEDIT Save All Files Query
0 = No saving.
1 = Save All Files with querying.
-1 = Save current buffer without query, 
and all other files with querying.
:IEditor TypeLEDIT
F[DFile
QBuffer Name[0
M(M.MSelect Buffer)*LEDIT*
FSUName:F6M.VLEDIT file type
HKJGLEDIT file type
zj<-:s.;C0,.KHXLEDIT file type-1;>
HK
M(M.MLISP Mode)
M(M.MSelect Buffer)0
0M.VLEDIT Return to Superior
@:I*|M(M.M& LEDIT Execute JCL)|M.VReturn from Superior Hook
0FO..QLEDIT Setup Hook[1
FQ1"GM1'
"#M.M^R LEDIT Save DEFUNU..z
M.M^R LEDIT Zap to LISPU..Z
M.M^R LEDIT Zap DEFUN to LISPU:.X(Z)
Q..FU..f
M.M^R LEDIT Find FunctionU..F
Q..CU..c
M.M^R LEDIT COMPLR InferiorU..C
Q..RU..r
M.M^R LEDIT ReCompileU..R
Q..SU..s
M.M^R LEDIT Save RegionU..S'
]1]0F]DFile
FSLispT"N
M(M.M& LEDIT Execute JCL)'
R1:@<
[0[1
F[BBind
FJ
HX0
F]BBind
FSXJNameU1
F~1LEDIT"EM0'
]1]0>
r[0
F[DFile
F[IFile
1:<EREC>
0FSIFVersion
FSIFileU0
F]IFile
F]DFile
M(M.MFind File)0
]0
.[0
FSVB[1
FSVZ[2
0FSVB
0FSVZ
1,FFind Function: [3
FF-1"E
F[4
1000[5
<Q4-Q5:J;
<.,Q4+Q5:FB(DEFUN 3 ;
13,FKAF 


"G'>
Q5*3U5>
]5]4'
J
<:S(DEFUN 3 ;
13,FKAF 


"G'>
Q2FSVZ
Q1FSVB
Q0J
:I*Unable to find function 3FSErrCM(M.M& LEDIT Save Region)
FF"NM(M.MSelect Buffer)*LEDIT*'sF[VBF[VZ
FF"E:,.'"#F'FFSBoundaries
Q..O[3
Q:.B(:I**LEDIT*M(M.M& Find Buffer)+4)[..O
ZJ
G3
0
\M(M.M^R Mark DEFUN)
M(M.M& LEDIT Save Region)
FF"NM(M.MSelect Buffer)*LEDIT*'
8QLEDIT Save All Files Query[1
FF"EQ1"L1,M(M.M^R Save File)'
Q1"NWM(M.MSave All Files)'''
Q:.B(:I**LEDIT*M(M.M& Find Buffer)+4)[..O
:I1
Z"N
FF"'E+("'N)"N
F[DFILE
0FO..QLEDIT file type[3
FSMSNameFSDSName
ETLEDIT-TEMPORARY-FILE.3
EIHPEF
:I1 
]3F]DFILE'
HK'
]..O
@:ILEDIT Return to Superior|
:FR
:I*ZFSEchoDisplay
0FSEchoChar
1
M(M.M& LEDIT Execute JCL)
|
:MLEDIT Return to SuperiorV1M(M.M^R Mark DEFUN)
M(M.M& LEDIT Save Region)
F@:M(M.M^R LEDIT Zap to LISP)/0FO..QCOMPLR Fork[2
FF"N
Q2"N-Q2FZ'
0UCOMPLR Fork
0
'
:FR
:I*ZFSEchoDisplay
0FSEchoChar
Q2F"NFZ
0
'
FZPS:<Maclisp>Complr.ExeM.VCOMPLR Fork
0
k[0[1[2[3
QBuffer FilenamesU0
Q0"NET0'
FF"N5,2FDirectoryU0
FQ0"L'
ET0'
FSDSNameU2
FSDDeviceU3
FTChecking 3:<2> for FASL files to ReCompile...

E[FNE]
F[BBind
EZ*.FASL
J
<:S.FASL;0F-5X1
2S,
1:<1,ER1.LSP>"E
(FSFDConvert)-(FSIfCDate)"L
FT1 needs ReCompilation.
'
EC'
"#FT1.LSP not found.
'>
FTDone.

0
	LEDITEThe Teco half of Lisp LEDIT Editing System for TOPS-20 and TENEX.5S Set up LEDIT variables and assign ^R commands. vS Run on TOPS-20 when Emacs continued by Lisp.
If there is JCL for LEDIT, then execute it.  Otherwise do nothing.DS Find File insuring Logical Device Name expansion. 
The standard Find File function, when invoked by m(m.m Find File)device:
fails to properly expand Logical Device Names, often causing it to select
a bogus buffer name.  This function calls the standard Find File after
forcing the Logical Device Name expansion. ^R Find Function in Buffer.
This function will find a Lisp Function in the buffer, repeatedly searching
greater and greater portions of the File centering its search about an
approximate location of the Function.  This function will search for a string
of the form ^J, ^M, or ^L followed by "(DEFUN <Function Name> ".  If called
from ^R Mode, the function will prompt for a function name.  The format of the
Teco call is:

<Approximate Location>M(M.M & LEDIT Find Function)<Function Name>

If no <Approximate Location> is given or if the function is called with more
than one argument, then the entire file is searched starting from the
beginning. <^R Stores Region between Mark and Point to be returned to Lisp.
Stuff is appended to the contents of the *LEDIT* Buffer.
If given argument (e.g. ctl-U), also selects buffer *LEDIT*. YS Stores Region between Mark and Point to be returned to Lisp.
The Region is appended to the contents of the *LEDIT* Buffer.  A pair of
arguments may be given instead of the Mark, if called from a Teco program. G^R Stores the Top Level List the Point is in to be returned to Lisp.
If the Point is between Lists, the following List is stored.
If numeric argument is given, then also select buffer *LEDIT*. x^R Returns to LISP
If called with no argument, writes out *LEDIT* buffer to be returned to LISP,
   and save files according to QLEDIT Save All Files Query.
If called with non-zero argument, writes out *LEDIT* buffer only and returns.
If called with zero argument, just goes directly back to LISP
   discarding the changes which were saved instead of zapping them. 
^R Store DEFUN and Zap to LISP
Takes same arguments as LEDIT Zap to LISP, but saves the
current DEFUN and then zaps it immediately. i^R Call COMPLR as Inferior,
or continue it if we have one already.  An argument means to kill fork. c^R Check for FASL files to ReCompile.
When called with no arguments, takes directory from current default file.
Takes directory as string argument, or prompts when put on a ^R character
and called with numeric argument. {& Setup LEDIT Library
& LEDIT Execute JCL
& LEDIT Find File
^R LEDIT Find Function
^R LEDIT Save Region
& LEDIT Save Region
^R LEDIT Save DEFUN
^R LEDIT Zap to LISP
^R LEDIT Zap DEFUN to LISP
^R LEDIT COMPLR Inferior
^R LEDIT ReCompile
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2